Shareware Super Platinum 8

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / CHRMAP.ZIP;1 / CHRMAP.EXE / CHARMAP.SMM < prev

Wrap

INI File | 1992-07-09 | 11.9 KB | 1,115 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] QMS-PS 810 [port] LPT1: [lang] 1 [desc] Insert a special character 710701380 14 706301536 150 2 0 0 0 0 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [ParaNum] 1 [tag] Body Text 2 [fnt] Arial 240 0 16384 [algn] 1 1 216 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Function 4 [fnt] Arial 240 0 16385 [algn] 1 1 0 0 0 [spc] 33 244 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Bullet 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 6 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 7 [fnt] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 8 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 9 [fnt] Arial 240 0 16384 [algn] 1 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Header 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Footer 12 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [tag] Outline3 0 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 0 0 [spc] 33 244 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 3 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline4 0 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 0 0 [spc] 33 244 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 4 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline4 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 1 1 0 1 1440 10800 1 3 9360 [txt] > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [edoc] @Title@<:#284,9360>'declares and Defines @Subhead@<:#240,9360>define IsOKToRun(menuname) GetInfo(217, 24, %1); @Subhead@<:#240,9360>define GetFocus() DllCall("User,GetFocus,H") @Subhead@<:#240,9360>define GetVersion( ) DllCall("kernel,GetVersion,H") @Subhead@<:#240,9360>'This stuff defines the Title Bar message (TitleBarMsg) stuff and is not necessary @Outline3@<:#240,9360>define GetActiveWindow() DllCall("user,GetActiveWindow,H") @Outline3@<:#240,9360>define SetWindowText() DllCall("user,SetWindowText,IHC", %1, %2) @Outline3@<:#240,9360>define TitleBarMsg() SetWindowText(GetActiveWindow(), %1) @Outline3@<:#240,9360>define GetWindowText() DllCall("user,GetWindowText,HHFH", %1, %2, %3) @Title@<:#284,9360>function menus() @Subhead@<:#240,9360>rmac=GetRunningMacroFile$() @Subhead@<:#240,9360>winver=GetVersion() @Subhead@<:#240,9360>gone=DeleteMenuItem(1, "&Edit" "&Insert", "&Special Characters...") @Subhead@<:#240,9360>if gone = 1 @Subhead@<:#480,9360> InsertCascadeMenuItem(1, "&Edit", "&Insert", 1, "&Special Characters..." , "{rmac}!charmap", "Insert a character from the Character Map into the current document.") @Subhead@ call charmap() @Subhead@<:#240,9360>else @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>if winver = 3 @Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>if Decide("This Windows 3.1 application may not be present; add the menu item anyway?", "Character Map") =0 @Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0> exit function @Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>endif @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>endif @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> StatusBarMsg("Installing a new item to the Edit / Insert menu") @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> 'pause(008) @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> DeleteMenuItem(1, "&Edit" "&Insert", "&Special Characters...") @Subhead@<:#480,9360><:f200,2Times New Roman,255,0,0> InsertCascadeMenuItem(1, "&Edit", "&Insert", 1, "&Special Characters..." , "{rmac}!charmap", "Insert a character from the Character Map into the current document.") @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> StatusBarMsg("") @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>endif @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>end function<:f> @Title@<:#284,9360>function charmap() @Subhead@<:#240,9360>rmac=GetRunningMacroFile$() @Subhead@result=IsOKToRun(paste) @Subhead@result = 1 @Subhead@if result !=1 @Subhead@<:#240,9360> exit function @Subhead@<:#240,9360>endif @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>ret = chr$(13) @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>hWnd= GetFocus() @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>clipboardA=ClipboardRead(1) @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>app = "Character Map" @Subhead@<:f200,2Times New Roman,255,0,0><:f><:f200,2Times New Roman,255,0,0>if not appisrunning(app) @Subhead@<:f200,2Times New Roman,255,0,0><:f><:f200,2Times New Roman,255,0,0> result = exec("charmap.exe", "") @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> if result <<= 32 @Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>winver=GetVersion() @Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>if winver = 3 @Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0> Message("This Windows 3.1 application could not be loaded.", "Character Map") @Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0> exit function @Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>endif @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> Message("Couldn't start Character Map.", "Character Map") @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> exit function @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> endif @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>else @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> activateapp(app) @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> apprestore(app) @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>endif @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>while GetFocus() != hWnd @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> pause (001) @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>wend @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>if ClipboardRead(1) != ClipboardA @Subhead@<:#240,9360><:><:f200,2Times New Roman,255,0,0> Paste() @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> FontRevert() @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>else @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> if decide("You didn't copy anything to the clipboard; Try again?")=1 @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> RunLater("{rmac}!charmap", "00:00.001") @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0> endif @Subhead@<:#240,9360><:f200,2Times New Roman,255,0,0>endif<:f> @Subhead@<:#240,9360>end function > [Embedded] 00010458 > [macsum] 2 menus 0 0 4 9 charmap 755 0 8 29 [macse] 14 menus 0 802 13 8 1 0 284 "kernel,GetVersion,H" 13 8 2 0 520 1 "&Edit" "&Insert" "&Special Characters..." 13 8 3 6 3 5 1 18 0 11 00000318 0 529 1 "&Edit" "&Insert" 1 "&Special Characters..." "{1}!charmap" "Insert a character from the Character Map into the current document." 16 charmap 10 00000743 6 2 5 3 18 0 11 00000485 0 2 "This Windows 3.1 application may not be present; add the menu item anyway?" "Character Map" 13 5 0 18 0 11 00000485 6 0 15 9 0 789 "Installing a new item to the Edit / Insert menu" 0 520 1 "&Edit" "&Insert" "&Special Characters..." 0 529 1 "&Edit" "&Insert" 1 "&Special Characters..." "{1}!charmap" "Insert a character from the Character Map into the current document." 0 789 "" 6 0 15 9 14 charmap 0 802 13 8 1 0 1313 217 24 155 13 8 2 5 1 8 2 6 2 5 1 18 1 11 00000107 6 0 15 9 0 39 13 13 8 3 0 284 "User,GetFocus,H" 13 8 4 0 1037 1 13 8 5 7 "Character Map" 8 6 0 1032 "{6}" 13 1 3 11 00000530 0 22 "charmap.exe" "" 13 8 2 6 2 5 32 18 4 11 00000517 0 284 "kernel,GetVersion,H" 13 8 7 6 7 5 3 18 0 11 00000452 0 3 "This Windows 3.1 application could not be loaded." "Character Map" 6 0 15 9 0 3 "Couldn't start Character Map." "Character Map" 6 0 15 9 10 00000556 0 38 "{6}" 0 1031 "{6}" 0 284 "User,GetFocus,H" 13 6 4 18 1 11 00000633 0 274 001 10 00000556 0 1037 1 13 6 5 18 1 11 00000702 2 155 1 2 251 2 10 00000824 0 2 "You didn't copy anything to the clipboard; Try again?" 13 5 1 18 0 11 00000824 0 285 "{1}!charmap" "00:00.001" 6 0 15 9 00010483